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0002 

0000 



000D 

000A 

0047 

0004 

0016 

0033 

0900, 

1E00 

0003 

0002 

0001 



0036 
002A 
0028. 

0008 

0009 
0018 
0010 
0011 
0003 
0003 

0001 



versi on == 
revi5ion== 

.pats 
.phex 



2 




Version 2.0 - 



Lata and 



If 

userno = 
drivno 
onprecmp: 
maxprec = 
stepset : 
loadset -■ 
RxRDY 
TxRDY - 
WBOOT • = 



Fort definitions 



address de 


0Dh 


0Ah 


47h 


■ 04h 


22 


59 


900h 


lE00h 





2 


1 



Update History 

(7/29) Escape can "be used for 

program restart. See CONIN. 
Head step delay lengthened to 
ISiTiS . Head load delay of 50ms 
inserted in Or^MOTOR routine. 
I/O errors do not terminate 
the program anymore. 
Conditional assembly for 
testing (TIORMAT) installed. 
Floppy buffer is printed to 
console if 10 error occurs 
under TFORMAT. 



definitions 



<return> 

<linefeed> 

Network user numbei 

Currently selected drive num 

turn on pre-compensation 

turn off S/L bit 

head step settle time = 15ms 

head load settle time = 50ms 

receiver ready bit 

transmitter ready bit 

for bios calls 



DMA 

SIGIAC = 

SIOIAD = 

PIOAD = 
PIOBD. 
FLOP 

FICPSR = 

FLOPDR = 

SETMAP = 
STCFFIOP= 

TFMTf Ig =\ 



36h 
2Ah 
28h 
08h 
09h 
18h 
10h 
llh 
03h 
03h 



SIO-1 channel A, control 
SIO-1 channel A, data -port 
PIO channel A, data 
PIO channel B , data 
Floppy EMA channel 
Floppy, status register 
Floppy data register 
Set memory map register 
Stop floppy controller 



Enter 



for FORMAT 

1 for TFCEKAT 



(interleaving sectors) 
(linear sectors) 



Entry Points for ZDT 
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0100 
0100 
0103 

0106 
0109 
010B 
010D 
0110 
0113 
0116 
0116 
■0133 



C3 0106 
C3 0142 

3A 0047 
FS00 
2035 
21 0116 
CD 0441 
C3 0002 

0D0A464F524D 
4e694E657420 



• loc 

jmp 

TEST: Ida 
cpi 
jrnz 
Ixi 
call 
jmp 

. .MOGOmsg: 

.ascii 
.asciz 



100h 
TEST 
START 

userno JMake sure we're not on 

00h ; a Hinet master. 

START ; We are not. Proceed 

H,..NOGOmsg 

prtmsg J V/e are. Tell user. 

; and boot. 

[cr] [If] '50RMAT cannot be used on a 
'HiNet [raster. ' 



0142 
0145 
0148 
014A 
0140 
014D 
014F 
0152 



31 0620 
2A 0001 
2E00 
36C7 
23 

3603 
CD 01D5 
C3 0495 



START: Ixi sp, stack; Set up our stack 

Ihld WEOCT ; use interrupt vector in bios 

mvi 1,0 ; where cold boot was 

mvi M,DMAdoneS,0Eih I low 

inx H 

mvi M, (DMAdone>8) & 0IIh ; then high 

call EORMAT ; format the disk(5) 

jmp EXIT • ; and warm boot. 
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; Home 


selected 


disk drive to track 


0155 






HOME : 








0155 


5E00 




mvi 


A,0. ; 


current track now zero 


0157 


32 


04EC 




sta 


curTEK 




015A 


21 


04E4 




Ixi 


K,homeELOP+l » point to drive number 


015D 


1845 


« 


jmpr 


seek ; 


share code with SETTRK 








> 

; Selec 


t disk drive 




015? 






SELDSK: 








015r 


21 


017? 




Ixi 


H,BEVqst 


; ask which disk 


0162 


CD 


0441 




call 


PRTMSG 




0165 


CD 


047C 




call 


CON IN ; 


get the answer 


0168 


yE03 




cpi 


03h ; 


check for cntrl-C 


01 6A 


CA 


0495 




jz 


EXIT ; 


Prepare to EXIT if CTRL C 


016D 


4E 






rriov 


C,A 




016E 


CD 


048D 




call 


CON OUT ; 


echo it 


0171 


L6c0 




sui 


'0' 




0173 


EA 


015F 




Jm 


SELDSK 




0176 


rE08 




cpi 


8 




017S 


E2 


015E 




JP 


SELDSK 




017B 


52 


04EB 




sta 


curDSK 




01 7E 


C9 






ret 






017F 


0D0A0A456E74 


DSVqst : 


.asciz 


[cr] [If] flf] 'Enter Disk (Mumter (0-7):/ 








; Set t 


rack 






019C 






SETTRK: 








019C 


3A 


04EC 




Ida 


curTRK ; 


get current track 


0191 


21 


0418 




Ixi 


H,seekEL0P+2 ; point to track number 


01A2 


77 






mov 


M,A ; 


store into command 


01A3 


2B 




• 


dcx 


H . 










> 

', Seek 


a track 


(used by S 


STTRK and HOME) 


01A4 






seek: 








01A4 


5A 


04EB , 




Ida 


curDSK ; 


set current disk 


01A7 


77 






mov 


('1 , A ; 


, store into command 


01A8 


• 2B 






dcx 


H , 




01A9 


CD 


04CE 




call 


onMOTOS ; 


turn on the drive motor 


01 AC 


54 




reseek: 


mov 


D,H ; 


save ptr to seek command 


01AI) 


5D 






mov 


E,L 


, 


01AE 


CD 


04A7 




call 


COMMA^D ; 


seek 


01B1 


21 


04FA 


sense : 


Ixi 


E, IsenseE 


LOP 


01B4 


CD 


04A7 




call 


COMMAND ; 


sense interrupt status 


01B7 


CD 


04B7 




call 


RESULT 




01EA 


. 62 






mov 


K,D ; 


restore ptr to seek command 


01BB 


6B 






mov 


L,S 




01BC 


3A 


04EE 




Ida 


res bu i > 


get first result byte 


01BE 


■ CBS? 




tit 


3 » A ) 


check ready bit 


01C1 


20S9 




jrnz 


reseek 1 


jump if not ready 


01C3 


CB6E 




tit 


5, A. ; 


mask out top 2 bits 


01C5 


2SEA 




jrz 


sense ; 


loop until seek comjleted 


01C7 


E6D0 




ani 


0D0h 




01 C 9 


C4 


03E3 




cnz 


I OERR 




01CC 


01 


0900 




Ixi 


B.stepset 


; delay 10 ms for step settle 
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; Delay 


loop 




01CF 


0B 


DELAY: 


dcx 


B 


01D0 


V8 




mov 


A,P 


01D1 


Bl 




ora 


G 


01D2 


20FB 


, 


jrnz 


DELAY 


01D4 


C9 




ret 
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P/s^E 5 



format the entire disk single or double density 



01D5 




01D5 


21 0220 


01DS 


CD 0441 


01D5 


CD 015F 


01DE 


C8 


01D? 


CD 0286 


01E2 


CD 02D3 


01E5 


CD 0155 


01 E8 


1600 


01EA 


CD 0502 


01ED 


CD 0371 


01F0 


CD 019C 


01F3 


3A 04F2 


0116 


57 


01F7 


FE00 


01F9 


2810 


01FB 


3 A 04SC 


01FE 


FE01 


0200 


2809 


0202 


D5 


0203 


3E04 



FORMAT 
. . f r rT] i 



,3: 



0205 CD 0302 

020 8 Dl 

0209 1603 

020B CD 0302 

020E CD 0371 

0211 FE4E 

0213 20DB 

0215 21 0271 
0218 . CD-0441 

021B 97 
021 C ■ D309 

021E leBB 



0220 0D0A466C6F70 FORMstr: 

022D 2054455354 

0232 20466F726D61 

0242 . 322E 

0244 3030 

0246 0D0A55736520 infomsg; 

025C 436F6E74726F 



Ixi 

call 

call 

rz 

call 

call 

call 

mvi 

call 

call 

call 

Ida 

mov 

cpi 

jrz 

Ida 

cpi 

jrz 

push 

mvi 

.if 6 

call 

.if e 
call 

pop 

jmpr 

call 

call 

cpi 

jrnz 

l:ci 

call 

sub 

out 

jmpr 

: .ascii 
.ife 
.ascii 

• byte 

• byte 
.ascii 
.asci z 



KjFCEMstr ; print start-up message 

PHTMSG 

S5IDSS 



ask which disk 
return if cntrl-C 
ask what density 
wait for return 
recalibrate the disk drive 
track is single density 
track is linear 
format the first track 

seek to next track 

rest of disk is specified 

density 

single density is linear 

so is track 1 



; save density 
; set stagger for DD 
[ 



ASKDEN 

WAITCR 

HOME 

D,0 

TAEIIN 

FORMITK 

SITTRK 

curDSN 

D,A 



. .2 

curTRK 

1 

. . 2 

D 

A, 4 

TFMTflg, 

TABS TAG ; stagger table for FORMAT 

TFHTflg-1, [ 

TABLIN ; dont stagger for TFORMAT 

D 

. .3 

TABLIN ; make table linear 
FOHMITK ; format next track 
,78 ; all tracks formatted? 
. . 1 ; if not , loop 
H,FORMdon ; say 'done' 
FRTMSG 

A ; A = 
PIOBD ; unload the head , , 
. .form 

[or] [If] 'Floppy Disk' 

TFMTflg-1, [.ascii " TEST " ] 

' Format Program 

versioE+'0 ', ' . ' 

revision/10+ '0 ', revisionG10+ '0' 

[cr][lf]"Jse ESC to restart, ' 

'Control-C to abort. 



0271 0D0A464F524D FORMdon : .asciz [cr] [If] 'FORMAT COMPLETED' fc r] [if ] 



; Ask what density 
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0266 

0286 21 02B6 

0289 CD 0441 
028C CD 047C 
028F 4F 

0290 CD 048D 
0293 FE73 
0295 2804 
0297 FEc3 
0299 2006 
029B 3E00 
029D 52 04F2 
02 A0 C9 
02A1 rE64 ■ 
02A3 260B 
02A5 FE44 
02A7 2807 
02A9 . FS03 
02AB CA 0495 
02AS 18E6 
02B0 3E01 
02B2 . 32 04F2 
02B5 C9 

02B6 0D0A53696E67 



ASKDEN: 



Ixi 

call 

call 

mov 

call 

cpi 

jrz 

cpi 

jrnz 

mvi 

sta 

ret 

cpi 

jrz 

cpi 

jrz 

cpi 

Jz 
jmpr 

mvi 

sta 

ret 



H,DENQSt ; set up iressage 

PRTMSG 

CONIN ; get answer 

C,h 

CO\'OUT 

's' 



. .1 
'S' 
. .2 

A,0 
curBEN 

'd' 

. .3 

'D' 

. .3 

3 

EXIT 

ASKDEN 

A,l 
curDEN 



I echo it 

; check for single 

; check for single 

; set single density 

; check for double 



3 is control-C 

Prepare to exit if CTRI-C 

Bad, entry. 

set double density 



0302 




0302 


21 3000 


0305 


3A 04EC 


0308 


4F 


0309 


3E01 


030B 


71 


030C 


23 


030D 


F5 


030 E 


3 A 04EB 


0311 


0F 


0312 


0F' 


0313 


E601 



DEi\iQSt: .asciz [cr] [if ] 'S ingle or Double density? 



H.WGRqst ; print a message 

; get an ans'A'er 

; 3 is control-C 

; Prepare to exit if CTRL-C . 

; is it cr? 

Jifnotloop 

; echo itV 

[cr] [if] 'Type return to start.' 

; Format curTRK and increment it. 

; Build Sector Table (linear) 
TABLIN: 

H.bufFLOP ; build sector table in buf 
; C should have curTEK 







> 










; Wait 


for CR 




02D3 




WAITCR 






02D3 


21 02EA 




Ixi 


H/A'CRq 


02D6 


CD 0441 




call 


PRTMSG 


02D9 


CD 047C 


..1: 


call 


CONIN 


02DC 


FE03 




cpi 


3 


02DS 


CA 0495 




jz 


EXIT 


02E1 


FE0D 




cpi 


cr 


02E3 


20F4 




jrnz 


. .1 


02E.5 


4r 




mov 


C,A 


02Sd 


CD 048D 




call 


CONGUT 


02E9 


C9 




ret 




02EA 


0D0A54797065 


WCRqst 


: .asciz 


[cr] [1 



1: 



Ixi 


H.bufF 


Ida 


curTRK 


mov 


C,A 


mvi 


A,l 


mov 


M,C 


inx 


H 


push 


psv: 


Ida 


curDSK 


rrc 




rrc 




ani 


1 



; A has sector number 
; fill in TRACK 



; compute head (ie, side) 
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0315 


77 


0316 


Fl 


0317 


23 


031 e 


77 


0319 


23 


031 A 


72 


031B 


23 


031C 


3C 


031 D 


FSIB 


031E 


20 EA 


0321 


C9 



mov 

TDOp 


M,A 

ps;v 


inx 

mov 


H 
M,A 


inx 
mov 


H 
M,D 


inx 


H 


inr 


A 


cpi 

jrnz 

ret 


27 
. .1 



; fill in HEAD (0 or l) 

; fill in SECTOR (counting) 

; code for BYTES/SECTOR 

; set to next sector 

; end of list? 

; no, then loop 



0322 




0322 


D5 


0323 


21 3000 


0326 


3600 


0328 


11 3001 


032B 


01 00FF 


032E 


EDB0 


0330 


21 3000 


0333 


47 


0334 


3A 04SC 


0337 


4F 


0338 


Dl 


0339 


3E01 


033B 


71 


033C 


23 


033D 


F5 


033E 


3A 04EE 


0341 


0F 


0342 


01 ■ 


0343 


E601 


0345 


77 


0346 


Fl 


0347 


23 


0348 


77 


0349 


25 


03 4 A 


72 


034B 


23 


034C 


FEIA' 


034E 


ce 


034F 


30 


0350 


C5 


0351 


23 


0352 


23 


0353 


23 


0354 


23 


0355 


10FA 


0357 


01 



; Build staggered sector tatle 
TABSTAG: 

push D ; save density 

ixi H,l3ufFL0P ; zero out the output buffer 



mvi 
Ixi 
Ixi 
Idir 

Ixi 
mov 
Ida 
mov 
pop 
mvi 

mov 
inx 

push 

Ida , 

rrc 

rrc 

ani 

mov 

pop 

inx 

mov 

inx 

mov 

inx 

cpi 
rz 
inr 
push 
■ inx 
inx 
inx 
inx 
djnz 
pop " 



M,0 

D,hufFLCP+l 

B,255 



H.hufFLOP ; build the sector table 



B,A 

curTRX 

C,A 

D 

A,l 

M,C 
H 

PSW 
curDSK 



1 

M,A 

PSW 

H 

M,A 

H 

M,I 

H 

26 

A 

B 
H 
H 
E 
H 



; B has the stagger count 

; C has the track number 

; restore density 

; first sector is 1 

; fill in TRACK 



; fill in HEAD (0 or 1) 

; fill in SECTOR (counting) 
; fill in SYTES/SECTCR 



last sector? 
return if yes 
set next sector 
save stagger count 
increment HL by 4 for each 
1 sector to stagger 



; repeat for stagger count 
; restore stagger counter 
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0358 


1^5 


0359 


7D 


035A 


EE68 


035C 


FA 0362 


035E 


DE6e 


0361 


6F 


0362 


23 


0363 


23 


0364 


7E 


0365 


B7 


0366 


2604 


0368 


23 


0369 


23 


036A 


leED 


036C 


2B 


036D 


2B 


036E 


Fl 


035F 


18CA 



0371 





push 


PSW 


..3: 


mov 


A,L 




cpi 


26'''4 




jm 


. .4 




sbi 


26-4 




rr.ov 


L,A 


. .4: 


inx 


H 




inx 


H 




mov 


A,M 




ora 


A 




jrz 


. .5 




inx. 


E 




inx 


H 




jmpr ■ 


. .3 




dcx 


H 




dcx 


H 




pop 


PSW 




jmpr 


. .1 


FORMITE 


• 
• 





; save A 

; check for HL overflow 



if overflow subtract extra 

from HI 

check if this sector already 

filled 



; if so skip it, and try rext 

; next sector 

;. restore HL ■ 

; restore A 

; fill next sector 



0371 


3E00 


0373 


D30e 


0375 


21 050G 


0378 


01 1438 


037B 


EDB3 


037D 


3A 04EB 


0380 


32 0506 


0383 


7A 


0384 


32 0507 


0387 


FE00 


0389 ■ 


2000 


038B 


3E0D 


038D 


32 0505 


0390 


3E1B 


0592 


32 0509 


0395 


180A 


0397 


3E4E 


039 S 


32 0505 


039C 


3E36 


039E 


32 0509 


03A1 




03A1 


21 0505 


03A4 , 


CD 03AF 


03A7 


3A 04EC 


03AA 


3C 


03AB 


32 04EC 



; multiplex Floppy to DMA 



; Set up the IMA chip 
mvi A.,0 
out PIOAD 
Ixi H,DMAfmt 
Ixi B,EMAfm$<8+DMA 
outir ; program the chip 

; Set up the floppy format command 

Ida , curDSK ; set up current disk 

; set up floppy density 



check for density 

and fill in special fields 

set up for single density 

format command 

set gap size 



. .2 



sta 


FORKdsk 


mov 


A,D 


sta 


FORMmod 


cpi 





jrnz 


..2 


mvi 


A,0Dh 


sta 


FOEI^com 


mvi 


i^.lBh 


sta 


FORMgap 


jmpr 




mvi 


A,4Dh 


sta 


FORMcom 


mvi 


A,36h 


sta 


FORMgap 



set up for double density 
format command 
set gap size 



Execute the floppy command 
Ixi H,FORMcorr 

call EXflop 

> 

; Increment to next track 
Ida curTRK 
inr A 
sta curTRK 
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03AE 



C9 



ret 



re turn 



03AF 


EB 


03E0 


CD 04A7 


0353 


CD 04B7 


03B6 


3A 04EE 


03B9 


E6C0 


03BB 


C4 0SE3 


03BE 


3 A 4EF 


03C1 


E633 


03 C 3 


C4 03E3 


03C6 


C9 


03C7 


15 


03Ce 


DB03 


03 C A 


3EC3 


03CC 


D338 


03CE 


Fl 


03CF 


FB 


03D0 


SD4D 



; Eyecute the floppy conrmand 
EXflop: ei ; turn 

call 



03D2 


0D0A2A2 


03E3 




03E3 


21 03D2 


03S6 


CD 0441 


03E9 


El 


03EA 


22 2FFE 


03ED 


22 04FC 


03F0 


21 0424 


03F3 


CD 0441 


03F6 


21 04FD 


03F9 


3S01, 


03FB 


CD 044D 


03FE 


21 04FC 


0401 


3E01. 


0403 


CD 044D 


0406 


21 042F 


0409 


CD 0441 


040C 


21 04FE 


040F 


3E07 


0411 


CD 044D 


0414 


21 0246 



call 

Ida 
ani 
en z 
Ida 
ani 
cnz 
ret 

; Handle the 
DMAdonerpush 
in 
mvi 
out 
pop 

reti 



COMMAND 

RESULT 

reshuf 

0C0h 

ICERR 

res"buf + 1 

33h 

lOERR 



on interupts 



; get first result "byte 

; mask out top 2 hits 

; jump if ahnormal termination 

; get second result hyte 
; check for CRC error 



floppy-done interrupt from the DKA chip. 
PSW 

STOPFLOP; 
A,0C3h ; 
DMA 
PSW 



reset 
reset 



the 
the 



floppy chip 
DMA chip 



Handle an I/O error 



Prin 
are 
prin 
made 
Next 
errmsg 
lOERR: 



[ 
t a message of the form 'I/O Error '. If we 
assemhling under the Tformat option, then 
t the address from which the call here was 
, and print the floppy result Imffer. 
, space down and await a control C or' ESC. 
.asciz [cr] [If ] '--- I/O Error ' 



; Print 
.ife 



JTell 



Ixi 

call 

pop 

shld 
^shld 
out error 

TFMTflf- 

Ixi 
. call 

Ixi 

mvi 

call 

Ixi 

mvi 

call 

Ixi 

call 

Ixi 

mvi 

call 

user what 
Ixi 



H, errmsg 
PRTMSa 
H 

bufFLOP-2 
erradr 
details if 

•1, [ 

H, . .f rommsg 

prtmsg 

H, erradr+l 

A,l 

PRTBYTS 

H, erradr 

A,l 

PRTBYTS 

H , . .resrr.sg 

prtmsg 

H.resbuf 

A 7 

PRTBYTS 



this 



Print error message 



save our error addr 
is TFORMAT 



print 
error 



addr where 
occured 



his options 

Hjinfomsg 



are 



; print result 
now and wait for 



huf 
1 

him, 
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call prtmsg ; larint GTEL-C,ESC info 

..wait: call CONIM 

cpi '3' Jloop until ctrl-c 

jrnz ..wait ;(or ESCAPE from conin) 

jrr.p EXIT ;ezit if ctrl-c 

. .f rommsg: 

361 .asciz 'from addr ' 

. .resmsg : 

375 .asciz '. Result buffer: 

2EFE locerr = bufELOF-S 



0417 


CD 0441 


041A 


CD 047C 


04ir 


rE33 


041E 


20E9 


0421 


C3 0495 


0424 




0424 


66726F6 


042E 




042 E 


2E20526 
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044B 


FE01 


044T 


B8 


0450 


280 C 


0452 


F5 


0453 


E5 


0454 


CB 


0457 


El 


0458 


Fl 


0459 


23 


045 A 


3B 


045B 


08 


045C 


18F4 


045S 




045E 


7E 


045F 


F5 


0460 


07 


0461 


07 


0462 


07 


0463 


07 


0464 


CB 


0467 


Fl 


0468 


. CB 



045E 







; Best 


royed : 


A, HL 


0441 




FRTMS&: 






0441 


7E 




mov 


A,M 


0442 


B7 




ora 


A 


0443 


ce 




rz 




0444 


4F 




mov 


C,A 


0445 


S5 




push 


H 


0446 


CB 048B 




call 


CONOUT 


0449 


El 




pop 


H 


044A 


23 




inx 


H 


044B 


1814 




jmpr 


FRTKSG 



Utility routines 

PRTMSG -. print a message 

PRTBYTS - print specified number of bytes 

COMMANB - send a command to the floppy controller 

RESULT - get a result from the floppy controller 

WAITER - wait for floppy data register 

MOTOEon - turn on the drive motor 

Print a message 
Regs in: HL = address of message (ended by null) 
Regs out: none 



; get a byte 

; if null, then return 

put it v^here CONOUT wants it 

save HL 

output the byte 

restore HL 

point to next byte 



Print a specified number of bytes 
Regs in: A = number of bytes to Drint 
HL= addr of 1st byte 
none 
any/all 
1 

; nothing to print 
..prtbyt; print just 1 char 



Regs out: 
; Bestoyed: 
PRTBYTS :cpi 
re 
jrz 



046C 



046C 



. . loop: push 

"DUSh 

call 

pop 

pop 

inx 

dcr 

rz 

jmpr 

; Regs in: 

. .prtbyt : 

mov 

push 

rlc 

rlc 

rlc 

rlc 

call 

pop 
call 



PSW ; save number of chrs 

H 

..prtbyt; print 1 byte to console 

H 

PSW ; restore number of chrs 

H ; get to next byte 

A ; Reduce our count 

; and return when finished. 
. .loop 

HL=addr of byte to be printed 



A,M 
PSW 



; save the- chr 



.. .rsrtnbl 

FSV 

. .prtnbl 
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046B 


C9 


046C 




046C 


E60F 


046E 


G630 


0470 


?E3A 


0472 


4? 


0472 


DA 04BD 


0476 


C607 


0478 


4F 


0479 


C3 048D 



ret 




. prtntl : 




ani 


0Fh 


adi 


'0' 


cpi 


'g'+i 


mov 


C , A ; chr goes out in C 


jc 


CONOUT 


.adi 


'A'-('9' + l) 


mov 


C , A ; chr goes out in C 


jmp 


CONOUT 



047C 


CD 


0485 


04 7F 


FEIB 


0481 


C0 




04S2 


C3 


01D5 


0485 


2 A 


0001 


04S8 


11 


0006 


048E 


19 




048 C 


E9 




048D 






048D 


2A 


0001 


0490 


11 


0009 


0493 


19 




0494 


E9 




0495 






0495 


CD 


049B 


0498 


C3 


0000 


049B 






049B 


3A 


0004 


049E 


4F 




049F 


2A 


0001 


04A2 


11 


001B 


04A5 


19 




04A6 


E9 





04A7 




04A7. 


7E 


04A8 


FEFF 


04AA 


ce 


04AB 


CD 04C8 


04AS 


DC 03S3 


04B1 


7E , 



; Console input 
CONIN : call 

cpi 

rnz 

jmp 



..1: 



Ihld 
Ixi 

dad 
pchl 



. .1 
IBb 

FOEt^AT 

WBOOT 
E,06h 
D 



Is entry ESCAPE? 
Mo . Return the chr . 
Yes. Restart progT'arr. 

; call the bios 



; Console output 

CONOUT: 

Ihld V/ECOT 

Ixi D,09h 

dad D 

"Dchl 



call the hios 



; Select original drive then exit 
EXIT: 

..seldrv; Select orig driv 



call 
jmp 

seldrv: 

Ida 

mov 

Ihld 

Ixi 

dad 

pchl 







drivno 
C,A 
WECCT 
D,lBh 

r 



; and v/arm hoot 



Get orig driv num 

in C . 

Send it to BIOS 



Send a command to the floppy controller 

Regs in: HL = address of command string 

Regs out: none 

Destroyed: A, HL 
COMMAND: 

mov A,M . 

cpi endcom 

rz 

call WAITDR 

cc lOSRR 

mov A ,M 



; return if end-of-command 
; direction is wrong 
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04 B 2 


D311 


04E4 


23 


04 B 5 


ieF0 



04B7 




04B? 


21 04EE 


04BA 


CD 04CS 


04BD 


D0 


04BS 


3SC3 


04C0 


D33e 


04C2 


DBll 


04C4 


77 


04C5 


23 


04C6 


18F2 



04Ce 




0408 


DB10 


040 A 


07 


04CB 


30EB 


04CD 


07 


04CE 


09 



04CF 




04CE 


47 


04D0 


3A 04SC 


04D3 


FE16 


04D5 


3808 


04D7 


CBS8 


04D9 


FE3B 


04DB 


3002 


04DD 


CBE0 


04DE 


CBE0 


04E1 


78 


04E2 


D309 


04E4 


01 1E00 


04E7 


CD 01OF 


04 EA 


09 



out 
inx 
jmpr 



FLOPDR ; send a byte to controller 
fl ; point to next byte 
COl^'hANE 



Collect a result from the floppy controller 

Regs in: none ^ 

Regs out: B = length of result string 
A, HL 



readDR 



Destroyed 
RESULT: 

Ixi 

call 

rnc 

mvi 

out 

in 

mov 

inx 

jmpr 



H, resbuf 
WAITDR 

A,0C3h 

DMA 

FICFDR 

M,A 

H 

readDR 



; reset DMA chip 
; ^et a result byte 
; store it away 



', Wait until floppy data register is ready 

; Regs in: none 

; Regs out: A = status register, shifted left by 1 

V/AITDR: 

in 

rlc 

jrnc 

rlc 

ret 



FLOPSR 
\^AITDR 



onMOTOR - turn on a drive motor 
Regs in: A = -drive number 
none 
A, B 



Regs out: 
Des troyed 

onMOTOR: 

mov 

Ida 

cpi 

jrc 

set 

cpi 

jrnc 

set 

. .1 : set 
mov 
out 
Ixi 
, call 
ret 



; bit 5 



pre-comp 



B , A 

curTRK ; set precomp 

ontrecmp 

. . i 

5,B 

maxrrec 

. .1 

4,B 

2,B 

A,B 

PIOBD 

Ejloadset; delay 50ms after 

DELAY ; head load 



; bit 4 = S/L 

; bit 2 = head load 
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04E1B 


00 


04EC 


00 


04ED 


01 


04EE 


0100 


04E0 


3000 


04r2 


01 



Current disk 



curDSK 

curTRK 

curSEC ; 

curBYT 

curDMA 

curDEN 



.byte 
.byte 
.byte 
.word 
.word 
.byte 



position 


1 

256 

buflLCP 

1 



information 

current physical drive 
current physical track 
current physical sector 
current length of operation 
I/C buffer 
current density 



; Eloppy controller comrands 



00FE 




04F2 




04F3 


07 


04F4 


00 


04E5 


FF 


04F6 




04F6 


0F 


04F7 


00 


04F8 


00 


04F3 


FF 


04FA 




04FA 


08 


04FB 


FF 


0046 




0045 




04FC 


00 


04FE 


00 



endcom = 
homeFLOP : 

• byte 
.byte 
.byte 

seekFLOF: 

.byte 
.byte 
.byte 
.byte 

IsenseFLOP: 

• byte 
.byte 

readFLOP = 
writeFLOF= 
erradr: .word 
000000000000 resbuf: .byte 



0FFh 

7' 

endcom 

15 





endcom 



command terminator 

recalibrate command 
curDSK 



seek command 

curDSK 

curTRK 



8 

endcom 

46h 

45h 



0,0,0,0,0,0,0 



; sense interrupt status 
; DOUBLE DENSITY 



; err addr holder 
;■ resul t buffer 



0505 




0505 


4D 


0506 


00 


0507 


01 


0508 


lA 


0509 


36 


050A 


E5 


050B 


FF 



; FORMAT 
FORMcom: 

FORMdsk 
FOEMmod 

FORMgap 



command for Floppy Controller 



.byte 
.byte 

• byte 
.byte 

• byte 
.byte 
.byte 



4Dh 



1 

25 

36h 

0E5h 

endcom 



format command (SD/DD) 

curDSK 

0=SD, 1=DD 

26 sectors/track 

gav length 

fill byte 



050C 




050C 


C3 


050D 


C7 


050E 


CB 


050F 


79 


0510 


3000 


0512 


0067 


0514 


14 


0515 


28 


0516 


95 


0517 


18 


0518 


12 



; DMA commands 


for FORMAT command 


DMAfmt: 






• byte 


0G3h 


master reset 


.byte 


0C7h 


reset port A 


• byte 


0CBh 


reset port B 


.byte 


• 079h 


read from memory ■' 


.word 


bufFLOP 


address 


.word 


103 


" size - 1 


.byte 


14h 


port A inc, memory 


.byte 


28h 


■ port B fixed, I/O 


.byte 


95h 


byte mode 


.byte 


FLOP 


port B 


.byte 


12h 


interrupt at end o 



block 
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0519 


00 


051A 


9A 


0511 


CF 


051C 


05 


051D 


CE 


051E 


AB 


051J 


87 


0014 




3000 




0520 




0620 





DMAfm? 
bufFLOP 



.end 



• byte 
-byte 
.byte 
.byte 
."byte 
.byte 
.byte 



.blkb 
stack 



00 

9Ah 

0CFh 

05 

0CFh 

0ABh 

87h 

.-iMAfrr.t 

3000h 

100h 



interrupt vector 
stop at end of block 
load starting address 
v;rite to I/O 
load starting address 
enable interrupts 
enable DMA 



location 
Room for 



of I/O buffer 
the stack. 
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ASKDEM 


0286 


GOMOUT 


04eD 


CURD MA 


04F0 


DELAY 


01CF 


DMADON 


0307 


ENDCOM 


00FF 


EXIT 


0495 


FORM IT 


0371 


FORMDS 


0506 


HOME 


0155 


ISENSE 


04FA 


MAXPRE 


003B 


PIOBE 


0009 


READFL 


0046 


REV IS I 


0000 


SELDSK 


015F 


SIOIAC 


00 2A 


STEPSE 


0900 


TEST 


0106 


VERSIO 


0002 


WCRQST 


02EA 


.PROG. 


0000' 



BUFFLO 


5000 


CR 


000D 


CURDSK 


04EB 


PENOST 


02B6 


DKAFMT 


050C 


ERR ADR 


04FC 


FLOP 


0018 


FORMAT 


01D5 


FORMGA 


0509 


HOMEFL 


04F3 


LF 


000A 


ONMOTO 


04CF 


PRTBYT 


044D 


RESEUF 


04FF 


RXRDY 


0000 


SE^'SE 


01B1 


SIOIAD 


0028 


STOPFL 


0003 


TFMTFL 


0001 


WAITCR 


02D3 


WRITEF 


0045 



COMMAM 

CURBYT 

CURSEG 

DSVOST 

DMAFM^ 

ERRM3G 

FLOPDR 

FORMCC 

FORMMO 

INFOMS 

LCADSE 

ONPREC 

PRTMSG 

RSSEEK 

SEEK 

SETMAP 

STACK 

TABLIN 

TXRDY 

v;aitdr 

•BLNK. 



04A7 
24EE 
04ED 
017F 
0014 
03D2 
0011 
0505 
0507 
0246 
1S00 
0016 
0441 
01AC 
01A4 
0003 
0620 
0302 
0002 
24CB 
0000 



03 X 



COMN 


047C 


CURDEN 


04F2 


CURTRK 


04EC 


DMA 


0038 


DRIVNO 


0004 


EXFLOP 


03AF 


FLOPSR 


0010 


FORMDO 


0271 


FORMST 


0220 


10 ERR 


03E3 


LOG ERR 


2FFE 


PIOAD 


0008 


READDR 


04BA 


RESULT 


04B7 


SESKFL 


04F5 


SETTRK 


019C 


START 


0142 


TABSTA 


0322 


USSR^'0 


047 


WBOOT 


0001 


.DATA. 


000- 



X 



